﻿'Namespace Tools
'    Public Class clsConversionFunctions
'        Public Shared Function DictValuesToList(ByVal pDict As Dictionary(Of Object, Object)) As List(Of Object)
'            Dim pOutList As New List(Of Object)
'            For Each pKey In pDict.Keys
'                pOutList.Add(pDict(pKey))
'            Next
'            Return pOutList
'        End Function
'        Public Shared Function DictKeysToList(ByVal pDict As Dictionary(Of Object, Object)) As List(Of Object)
'            Dim pOutList As New List(Of Object)
'            For Each pKey In pDict.Keys
'                pOutList.Add(pKey)
'            Next
'            Return pOutList
'        End Function
'    End Class
'End Namespace